/* ARexx script to select the correct archive to upgrade to AWeb-II 3.2
*
* Run this script from within AWeb-II version 3.x
*/
options results
if ~show('L','rexxsupport.library') then addlib('rexxsupport.library',0,-30,0)
no31=0
ver=0
'get version var awebver'
if left(awebver,3)<3.1 then no31=1
if no31 then awebpath='AWeb3:'
else awebpath='AWebPath:'
if open(f,'T:awebupgrade.html','W') then do
call writeln f,'AWeb Upgrade'
call writeln f,''
call writeln f,'
'
call writeln f,'Upgrade to AWeb-II 3.2
'
call writeln f,'Checking your original AWeb-II disks...'
call close f
'open "file:///T:awebupgrade.html" reload'
'wait all'
end
do forever
'request "AWeb Upgrade" "Put Disk 1 of the original AWeb-II distribution*Ninto any drive" "_Ok|_Cancel"'
if rc>0 then exit
volumes=showlist('V')
if pos('AWEB3.0_DISK1',upper(volumes))>0 then leave
if pos('AWEB3.1_DISK1',upper(volumes))>0 then do
ver='3.1'
leave
end
end
if ver=0 then do
address command
'AWeb3.0_Disk1:lhex >nil: -w=T: e AWeb3.0_Disk1:AWeb2.lha AWeb-II'
'version >t:awebdiskversion T:AWeb-II'
'delete >nil: T:AWeb-II'
if open(f,'T:awebdiskversion','R') then do
version=readln(f)
call close f
ver=word(version,2)
end
'delete >nil: T:awebdiskversion'
address
end
select
when ver='3.0' then do
lha='AWeb3032pch.lha'
size=495
end
when ver='3.0b' then do
lha='AWeb30b32pch.lha'
size=495
end
when ver='3.1' then do
lha='AWeb3132pch.lha'
size=267
end
otherwise do
'request "AWeb Upgrade" "Unknown disk version.*NProgram stopped." "_Ok" NOWAIT'
exit
end
end
if open(f,'T:awebupgrade.html','W') then do
call writeln f,'AWeb Upgrade'
call writeln f,''
call writeln f,''
call writeln f,'Upgrade to AWeb-II 3.2
'
if no31 then do
call writeln f,'You are currently running AWeb-II version ' || awebver || '. The 3.2 patch'
call writeln f,'archive doesn''t contain all changed documentation and other files'
call writeln f,'for you. You have to install the AWeb 3.1 patch before you can'
call writeln f,'successfully upgrade to version 3.2.
'
call writeln f,'Download and install the '
call writeln f,'AWeb 3.1 patch (680 kB) first.
'
call writeln f,'To install this patch, double-click the "Install-AWeb31" icon.
'
call writeln f,'The installation procedure will need the original disks from the'
call writeln f,'AWeb-II ' || ver || ' distribution.
'
call writeln f,'Then you can install the AWeb-II 3.2 patch (see below).
'
end
call writeln f,'Your AWeb-II disks contain version ' || ver || '.
'
call writeln f,'To upgrade to AWeb-II 3.2 you need'
call writeln f,'' || lha || ''
call writeln f,'(' || size || ' kB).
'
call writeln f,'To install this patch, double-click the "Install-AWeb32" icon.
'
call writeln f,'The installation procedure will need the original disks from the'
call writeln f,'AWeb-II distribution.
'
call writeln f,''
call close f
'open "file:///T:awebupgrade.html" reload'
end
else do
'request "AWeb Upgrade" "Couldn''t open temporary file.*NProgram stopped." "_Ok" NOWAIT'
end